home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / eait2dfl.lsp < prev    next >
Text File  |  1998-03-15  |  17KB  |  403 lines
  1. ;=============2D-Flaechenelemente
  2. ;
  3. ;NAM = Modulnummer z.B. 02646
  4. ;ART  = HOR izontal oder VER tikal oder DRA ufsicht oder GET eilt
  5. ;DICKE = Dicke des Flaechenelements
  6.  
  7.  
  8. (defun EAIT2dfl (NAM ART DICKE / P1 P2 P11 P12 P13 P14 P15 P16 P17 P18 L B L2 B2 Daten E1 BName Ben3 Wi flmonm flmx flmy sign SS1 D4 D5 D16 D75)
  9.  
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setq Daten NAM
  13.          B DICKE
  14.          EAITtyp "B1"  ;Schalter für EAITabm_warn
  15.    )
  16.    (if (not EAITlfl)(setq EAITlfl 0))
  17.    (if (not EAITbfl)(setq EAITbfl 0))
  18.  
  19.    (EAITDBL Daten)
  20.    (princ (strcat "\n\n" EAITbez1))
  21.        (princ)
  22.  
  23. ;****************************************************************************
  24.    
  25.  
  26. (cond 
  27.  
  28.   ((= ART "DRA")
  29.  
  30.    (if (= EAITlp nil)(setq EAITlp 0.0))
  31.  
  32.    (EAITmsg "mb_mld1" "      " "015" "  ")           ;Aufmass ->
  33.    (princ EAITlp)
  34.    (terpri)
  35.    (EAITbpt nil nil nil)
  36.    (setq P1 (getpoint))
  37.    (if (= P1 nil)(setq P1 (EAITrpt)))
  38.    ;Laengeneingabe mit Prüfung
  39.    (setq L2 (+ EAITlmax 1))
  40.    (while (or (> L2 EAITlmax)(> B2 EAITbmax))
  41.       (initget (+ 2 4))
  42.       (EAITmsg "mb_mld1" "\n" "016" " <")(princ EAITlfl)(princ "> ");Laenge (lichte Weite  "X"):
  43.       (setq L (getdist))
  44.       (if (= L nil)(setq L EAITlfl))
  45.       (setq L (fix (+ (abs L) 0.5)))
  46.       (initget (+ 2 4))
  47.       (EAITmsg "mb_mld1" "\n" "017"  " <")(princ EAITbfl)(princ "> ");Breite (lichte Weite  "Y"):
  48.       (setq B (getdist))
  49.       (if (= B nil)(setq B EAITbfl))
  50.       (setq B (fix (+ (abs B) 0.5)))
  51.       (if (> B L) (setq L2 B B2 L) (setq L2 L B2 B) )
  52.       (setq B2 (+ B2 (* 2 EAITlp)) L2 (+ L2 (* 2 EAITlp)) )
  53.       (if (or (> L2 EAITlmax)(> B2 EAITbmax))
  54.              (EAITabm_warn)
  55. ;            (progn(EAITmsg "mb_mld13" "\n\n" "001" nil)(EAITmsg "mb_mld13" " " "004" " ") (princ EAITbmax)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld13" " " "005" " ") 
  56. ;                (princ EAITlmax)(EAITmsg "mb_mld13" nil "006" nil))  
  57.       ) ;Gültige Eingabe : min EAITbmax mm max EAITlmax mm
  58.    )
  59.    (princ "\n  -> ")(princ L2)(princ " x ")(princ B2)(princ " ")(EAITmsg "mb_mld1" nil "007" "\n")
  60.    (initget 1)
  61.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  62.    (setq Wi (getangle P1))
  63.    (setq Wi (* 180.0 (/ Wi Pi)))
  64.    (cond  ((and (>= Wi 90) (< Wi 180))  (setq L (* L -1) flmx (* EAITlp -1) flmy EAITlp Wi 135))
  65.           ((and (>= Wi 180) (< Wi 270)) (setq L (* L -1) B (* B -1) flmx (* EAITlp -1) flmy (* EAITlp -1) Wi 225))
  66.           ((and (>= Wi 270) (< Wi 360)) (setq B (* B -1) flmx EAITlp flmy (* EAITlp -1) Wi 315))
  67.           (T                            (setq flmx EAITlp flmy EAITlp Wi 45))
  68.    )
  69.    (cond ((>= EAITlp 0) (setq P11 (list (car P1)(cadr P1))
  70.                             P12 (list (+ (car P11) L) (cadr P11))
  71.                             P13 (list (car P12) (+ (cadr P12) B))
  72.                             P14 (list (car P11)(cadr P13))))
  73.         ((< EAITlp  0) (setq P11 (list (- (car P1) flmx)(- (cadr P1) flmy))
  74.                             P12 (list (+ (car P11)(+ L (* flmx 2))) (cadr P11))
  75.                             P13 (list (car P12) (+ (cadr P12)(+ B (* flmy 2))))
  76.                             P14 (list (car P11)(cadr P13)) ))
  77.    );cond
  78.    (setvar "OSMODE" 0)
  79.    (command EAITlay EAITlse "EAIT50" "")
  80.    (command EAITlin P11 P12 "")
  81.    (setq E1 (entlast))
  82.    (command EAITlin P12 P13 P14 P11 "")
  83.    (setq SS1 (EAITSS E1))
  84.  
  85.    (setq BName (EAITbnr))
  86.    (command EAITblo BName P1 SS1 "")
  87.    (command EAITege BName P1 "" "" "")
  88.  
  89.    (setq L2 (rtos L2 2 1) B2 (rtos B2 2 1))
  90.  
  91.    (cond 
  92.          ((AND (= EAITlp 5)(= EAIThr "N")(> DICKE 5))
  93.                         (setq Ben3 "T")
  94.          )
  95.          ((AND (= EAITlp 10)(= EAIThr "N")(> DICKE 8))
  96.                         (setq Ben3 "T")
  97.          )
  98.          ((AND (= EAITlp 10)(= EAIThr "L")(> DICKE 10))
  99.                         (setq Ben3 "T")
  100.          )
  101.          ((AND (= EAITlp 20)(= EAIThr "K")(> DICKE 9))
  102.                         (setq Ben3 "T")
  103.          )
  104.    );cond
  105.    (if (= Ben3 "T")(setq Ben3 (EAITmg "mb_mld12" "002"))(setq Ben3 " ")) ;(umfraest)
  106.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib Wi) 5) "" "" ""
  107.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 Ben3 L2 B2 EAITnr
  108.    )
  109.  
  110.   (setq EAITlfl (abs L) EAITbfl (abs B))
  111.   );cond (= ART "DRA")
  112.  
  113.  
  114.  
  115.  
  116.   ((= ART "HOR")
  117.    (if (= EAITlp nil)(setq EAITlp 0.0))
  118.    (EAITmsg "mb_mld1" "      " "015" "  ")           ;Aufmass ->
  119.    (princ EAITlp)
  120.    (terpri)
  121.    (EAITbpt nil nil nil)
  122.    (setq P1 (getpoint))
  123.    (if (= P1 nil)(setq P1 (EAITrpt)))
  124.    ;Laengeneingabe mit Prüfung
  125.    (setq L2 (+ EAITlmax 1))
  126.    (while (or (> L2 EAITlmax)(> B2 EAITbmax))
  127.       (initget (+ 2 4))
  128.       (EAITmsg "mb_mld1" "\n" "016" " <")(princ EAITlfl)(princ "> ");Laenge (lichte Weite  "X"):
  129.       (setq L (getdist))
  130.       (if (= L nil)(setq L EAITlfl))
  131.       (setq L (fix (+ (abs L) 0.5)))
  132.       (initget 1)
  133.       (setq B (fix (+ (abs B) 0.5)))
  134.       (if (> B L) (setq L2 B B2 L) (setq L2 L B2 B) )
  135.       (setq B2 (+ B2 (* 2 EAITlp)) L2 (+ L2 (* 2 EAITlp)) )
  136.       (if (or (> L2 EAITlmax)(> B2 EAITbmax))
  137.              (EAITabm_warn)
  138. ;            (progn(EAITmsg "mb_mld13" "\n\n" "001" nil)(EAITmsg "mb_mld13" " " "004" " ") (princ EAITbmax)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld13" " " "005" " ") 
  139. ;                (princ EAITlmax)(EAITmsg "mb_mld13" nil "006" nil))  
  140.       ) ;Gültige Eingabe : min EAITbmax mm max EAITlmax mm
  141.    )
  142.    (princ "\n  -> ")(princ L2)(princ " ")(EAITmsg "mb_mld1" nil "007" "\n")
  143.    (initget 1)
  144.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  145.    (setq Wi (getangle P1))
  146.    (setq Wi (* 180.0 (/ Wi Pi)))
  147.    (cond  ((and (>= Wi 90) (< Wi 180))  (setq L (* L -1) flmx (* EAITlp -1) flmy EAITlp sign -1 D4 (- 9 (/ B 2)) D75 7.5 D5 5.0 D16 16.0 Wi 135))
  148.           ((and (>= Wi 180) (< Wi 270)) (setq L (* L -1) B (* B -1) flmx (* EAITlp -1) flmy (* EAITlp -1) sign -1 D4 (-(+ 9 (/ B 2))) D75 -7.5 D5 -5.0 D16 -16.0 Wi 225))
  149.           ((and (>= Wi 270) (< Wi 360)) (setq B (* B -1) flmx EAITlp flmy (* EAITlp -1) sign 1 D4 (-(+ 9 (/ B 2))) D75 -7.5 D5 -5.0 D16 -16.0 Wi 315))
  150.           (T                            (setq flmx EAITlp flmy EAITlp sign 1 D4 (- 9 (/ B 2)) D75 7.5 D5 5.0 D16 16.0 Wi 45))
  151.    )
  152.    (cond ((= EAITlp 0) (setq P11 (list (car P1)(cadr P1))
  153.                             P12 (list (+ (car P11) L) (cadr P11))
  154.                             P13 (list (car P12) (+ (cadr P12) B))
  155.                             P14 (list (car P11)(cadr P13))
  156.                        )
  157.          )
  158.          ((AND (= EAITlp 5)(= EAIThr "N"))
  159.                         (setq P11 (list (- (car P1) (* 5 sign)) (+ D75 (cadr P1)))
  160.                              P12 (list (+ (car P11) (* L2 sign)) (cadr P11))
  161.                              P13 (list (car P12) (+ (cadr P12) B))
  162.                              P14 (list (car P11)(cadr P13))
  163.                         )
  164.                         (if (> DICKE 5) (setq Ben3 "T"))
  165.          )
  166.          ((AND (= EAITlp 10)(= EAIThr "N"))
  167.                         (setq P11 (list (- (car P1) (* 10 sign)) (+ D16 (cadr P1)))
  168.                              P12 (list (+ (car P11) (* L2 sign)) (cadr P11))
  169.                              P13 (list (car P12) (+ (cadr P12) B))
  170.                              P14 (list (car P11)(cadr P13))
  171.                         )
  172.                         (if (> DICKE 8) (setq Ben3 "T"))
  173.          )
  174.          ((AND (= EAITlp 10)(= EAIThr "L"))
  175.                         (setq P11 (list (- (car P1) (* 10 sign)) (+ D4 (cadr P1)))
  176.                              P12 (list (+ (car P11) (* L2 sign)) (cadr P11))
  177.                              P13 (list (car P12) (+ (cadr P12) B))
  178.                              P14 (list (car P11)(cadr P13))
  179.                         )
  180.                         (if (> DICKE 10) (setq Ben3 "T"))
  181.          )
  182.          ((AND (= EAITlp 20)(= EAIThr "K"))
  183.                         (setq P11 (list (- (car P1) (* 20 sign)) (+ D5 (cadr P1)))
  184.                              P12 (list (+ (car P11) (* L2 sign)) (cadr P11))
  185.                              P13 (list (car P12) (+ (cadr P12) B))
  186.                              P14 (list (car P11)(cadr P13))
  187.                         )
  188.                         (if (> DICKE 9) (setq Ben3 "T"))
  189.          )
  190.          ((< EAITlp  0) 
  191.                         (setq P11 (list (- (car P1) flmx)(cadr P1))
  192.                              P12 (list (+ (car P11)(+ L (* flmx 2))) (cadr P11))
  193.                              P13 (list (car P12) (+ (cadr P12) B))
  194.                              P14 (list (car P11)(cadr P13))
  195.                         )
  196.          )
  197.    );cond
  198.    (setvar "OSMODE" 0)
  199.    (command EAITlay EAITlse "EAIT50" "")
  200.    (command EAITlin P11 P12 "")
  201.    (setq E1 (entlast))
  202.    (command EAITlin P12 P13 P14 P11 "")
  203.    (setq SS1 (EAITSS E1))
  204.  
  205.    (setq BName (EAITbnr))
  206.    (command EAITblo BName P1 SS1 "")
  207.    (command EAITege BName P1 "" "" "")
  208.  
  209.    (setq L2 (rtos L2 2 1))
  210.    (if (= Ben3 "T")(setq Ben3 (EAITmg "mb_mld12" "002"))(setq Ben3 " ")) ;(umfraest)
  211.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P11 (EAITgib Wi) 5) "" "" ""
  212.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 Ben3 L2 (rtos EAITb1 2 1) EAITnr
  213.    )
  214.  
  215.   (setq EAITlfl (abs L))
  216.   );cond (= ART "HOR")
  217.  
  218.  
  219.  
  220.  
  221.   ((= ART "VER")
  222.  
  223.    (if (= EAITlp nil)(setq EAITlp 0.0))
  224.    (EAITmsg "mb_mld1" "      " "015" "  ")           ;Aufmass ->
  225.    (princ EAITlp)
  226.    (terpri)
  227.    (EAITbpt nil nil nil)
  228.    (setq P1 (getpoint))
  229.    (if (= P1 nil)(setq P1 (EAITrpt)))
  230.    ;Laengeneingabe mit Prüfung
  231.    (setq L2 (+ EAITlmax 1))
  232.    (while (or (> L2 EAITlmax)(> B2 EAITbmax))
  233.       (initget (+ 2 4))
  234.       (EAITmsg "mb_mld1" "\n" "037" " <")(princ EAITbfl)(princ "> ");Laenge (lichte Weite  "Y"):
  235.       (setq L (getdist))
  236.       (if (= L nil)(setq L EAITbfl))
  237.       (setq L (fix (+ (abs L) 0.5)))
  238.       (initget 1)
  239.       (setq B (fix (+ (abs B) 0.5)))
  240.       (if (> B L) (setq L2 B B2 L) (setq L2 L B2 B) )
  241.       (setq B2 (+ B2 (* 2 EAITlp)) L2 (+ L2 (* 2 EAITlp)) )
  242.       (if (or (> L2 EAITlmax)(> B2 EAITbmax))
  243.              (EAITabm_warn)
  244. ;            (progn(EAITmsg "mb_mld13" "\n\n" "001" nil)(EAITmsg "mb_mld13" " " "004" " ") (princ EAITbmax)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld13" " " "005" " ") 
  245. ;                (princ EAITlmax)(EAITmsg "mb_mld13" nil "006" nil))  
  246.       ) ;Gültige Eingabe : min EAITbmax mm max EAITlmax mm
  247.    )
  248.    (princ "\n  -> ")(princ L2)(princ " ")(EAITmsg "mb_mld1" nil "007" "\n")
  249.    (initget 1)
  250.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  251.    (setq Wi (getangle P1))
  252.    (setq Wi (* 180.0 (/ Wi Pi)))
  253.    (cond  ((and (>= Wi 90) (< Wi 180))  (setq B (* B -1) flmx (* EAITlp -1) flmy EAITlp sign 1 D4 (-(+ 9(/ B 2))) D75 -7.5 D5 -5.0 D16 -16.0 Wi 135))
  254.           ((and (>= Wi 180) (< Wi 270)) (setq L (* L -1) B (* B -1) flmx (* EAITlp -1) flmy (* EAITlp -1) sign -1 D4 (-(+ 9(/ B 2))) D75 -7.5 D5 -5.0 D16 -16.0 Wi 225))
  255.           ((and (>= Wi 270) (< Wi 360)) (setq L (* L -1) flmx EAITlp flmy (* EAITlp -1) sign -1 D4 (- 9(/ B 2)) D75 7.5 D5 5.0 D16 16.0 Wi 315))
  256.           (T                            (setq flmx EAITlp flmy EAITlp sign 1 D4 (- 9(/ B 2)) D75 7.5 D5 5.0 D16 16.0 Wi 45))
  257.    )
  258.    (cond ((= EAITlp 0) 
  259.                        (setq P11 (list (car P1)(cadr P1))
  260.                             P12 (list (+ (car P11) B) (cadr P11))
  261.                             P13 (list (car P12) (+ (cadr P12) L))
  262.                             P14 (list (car P11)(cadr P13))
  263.                        )
  264.         )
  265.         ((AND (= EAITlp 5)(= EAIThr "N"))
  266.                        (setq P11 (list (+ D75 (car P1))(- (cadr P1) (* 5 sign)) )
  267.                             P12 (list (car P11)(+ (cadr P11) (* L2 sign)))
  268.                             P13 (list (+ (car P12) B)(cadr P12))
  269.                             P14 (list (car P13)(cadr P11))
  270.                        )
  271.                         (if (> DICKE 5) (setq Ben3 "T"))
  272.         )
  273.         ((AND (= EAITlp 10)(= EAIThr "N"))
  274.                        (setq P11 (list (+ D16 (car P1))(- (cadr P1) (* 10 sign)) )
  275.                             P12 (list (car P11)(+ (cadr P11) (* L2 sign)))
  276.                             P13 (list (+ (car P12) B)(cadr P12))
  277.                             P14 (list (car P13)(cadr P11))
  278.                        )
  279.                         (if (> DICKE 8) (setq Ben3 "T"))
  280.         )
  281.         ((AND (= EAITlp 10)(= EAIThr "L"))
  282.                        (setq P11 (list (+ D4 (car P1))(- (cadr P1) (* 10 sign)) )
  283.                             P12 (list (car P11)(+ (cadr P11) (* L2 sign)))
  284.                             P13 (list (+ (car P12) B)(cadr P12))
  285.                             P14 (list (car P13)(cadr P11))
  286.                        )
  287.                         (if (> DICKE 10) (setq Ben3 "T"))
  288.         )
  289.         ((AND (= EAITlp 20)(= EAIThr "K"))
  290.                        (setq P11 (list (+ D5 (car P1))(- (cadr P1) (* 20 sign)) )
  291.                             P12 (list (car P11)(+ (cadr P11) (* L2 sign)))
  292.                             P13 (list (+ (car P12) B)(cadr P12))
  293.                             P14 (list (car P13)(cadr P11))
  294.                        )
  295.                         (if (> DICKE 9) (setq Ben3 "T"))
  296.         )
  297.         ((< EAITlp  0) 
  298.                        (setq P11 (list (car P1) (- (cadr P1) flmy))
  299.                             P12 (list (car P11)(+ (+ L (* flmy 2))(cadr P11)))
  300.                             P13 (list (+ (car P12) B)(cadr P12))
  301.                             P14 (list (car P13)(cadr P11)) 
  302.                        )
  303.         )
  304.    );cond
  305.    (setvar "OSMODE" 0)
  306.    (command EAITlay EAITlse "EAIT50" "")
  307.    (command EAITlin P11 P12 "")
  308.    (setq E1 (entlast))
  309.    (command EAITlin P12 P13 P14 P11 "")
  310.    (setq SS1(EAITSS E1))
  311.  
  312.    (setq BName (EAITbnr))
  313.    (command EAITblo BName P1 SS1 "")
  314.    (command EAITege BName P1 "" "" "")
  315.  
  316.    (setq L2 (rtos L2 2 1))
  317.    (if (= Ben3 "T")(setq Ben3 (EAITmg "mb_mld12" "002"))(setq Ben3 " ")) ;(umfraest)
  318.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P11 (EAITgib Wi) 5) "" "" ""
  319.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 Ben3 L2 (rtos EAITb1 2 1) EAITnr
  320.    )
  321.  
  322.   (setq EAITbfl (abs L))
  323.   );cond (= ART "VER")
  324.  
  325.  
  326.  
  327.  
  328.  ((= ART "GET")
  329.  
  330.    (if (or (= EAITlp nil)(>= EAITlp 0))(setq EAITlp -1.5))
  331.    (EAITmsg "mb_mld1" "      " "015" "  ")           ;Aufmass ->
  332.    (princ EAITlp)
  333.    (terpri)
  334.    (EAITbpt nil nil nil)
  335.    (setq P1 (getpoint))
  336.    (if (= P1 nil)(setq P1 (EAITrpt)))
  337.    ;Laengeneingabe mit Prüfung
  338.    (setq L2 (+ EAITlmax 1))
  339.    (while (or (> L2 EAITlmax)(> B2 EAITbmax))
  340.       (initget 1)
  341.       (EAITmsg "mb_mld12" "\n" "003" " ")          ;Diagonalpunkt:
  342.       (setq P2 (getpoint P1))
  343.       (setq flmonm (fix (* (/ EAITlp 3) 2)) )
  344.       (if (< (abs flmonm) 1)(setq flmonm -1))
  345.       (setq L (abs (- (car P2)(car P1)))
  346.             L (fix (/ (+ L  (* 2 EAITlp) flmonm) 2))
  347.             B (abs (- (cadr P2)(cadr P1)))
  348.             B (fix (+ (+ B (* 2 EAITlp)) 0.5))
  349.       )
  350.       (if (> B L) (setq L2 B B2 L) (setq L2 L B2 B) )
  351.       (if (or (> L2 EAITlmax)(> B2 EAITbmax))
  352.              (EAITabm_warn)
  353. ;            (progn(EAITmsg "mb_mld13" "\n\n" "001" nil)(EAITmsg "mb_mld13" " " "004" " ") (princ EAITbmax)(EAITmsg "mb_mld13" nil "006" nil)(EAITmsg "mb_mld13" " " "005" " ") 
  354. ;                (princ EAITlmax)(EAITmsg "mb_mld13" nil "006" nil))  
  355.       ) ;Gültige Eingabe : min EAITbmax mm max EAITlmax mm
  356.    )
  357.    (setq Wi (angle P1 P2))
  358.    (setq Wi (* 180.0 (/ Wi Pi)))
  359.    (cond  ((and (>= Wi 90) (< Wi 180))  (setq L (* L -1) flmx (* EAITlp -1) flmy EAITlp Wi 135))
  360.           ((and (>= Wi 180) (< Wi 270)) (setq L (* L -1) B (* B -1) flmx (* EAITlp -1) flmy (* EAITlp -1) Wi 225))
  361.           ((and (>= Wi 270) (< Wi 360)) (setq B (* B -1) flmx EAITlp flmy (* EAITlp -1) Wi 315))
  362.           (T                            (setq flmx EAITlp flmy EAITlp Wi 45))
  363.    )
  364.  
  365.    (setq P11 (list (- (car P1) flmx)(- (cadr P1) flmy))
  366.          P12 (list (+ (car P11) L) (cadr P11))
  367.          P13 (list (car P12) (+ (cadr P12) B))
  368.          P14 (list (car P11)(cadr P13))
  369.          P15 (list (+ (car P2) flmx)(cadr P13))
  370.          P16 (list (- (car P15) L) (cadr P15))
  371.          P17 (list (car P16)(cadr P11))
  372.          P18 (list (car P15)(cadr P11))
  373.    )
  374.  
  375.    (setvar "OSMODE" 0)
  376.    (command EAITlay EAITlse "EAIT50" "")
  377.    (command EAITlin P11 P12 "")
  378.    (setq E1 (entlast))
  379.    (command EAITlin P12 P13 P14 P11 "" EAITlin P15 P16 P17 P18 P15 "")
  380.    (setq SS1 (EAITss E1))
  381.    (setq BName (EAITbnr))
  382.    (command EAITblo BName P1 SS1 "")
  383.    (command EAITege BName P1 "" "" "")
  384.  
  385.    (setq L2 (rtos L2 2 1) B2 (rtos B2 2 1))
  386.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib Wi) 15) "" "" ""
  387.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L2 B2 EAITnr
  388.    )
  389.  
  390.   );cond (= ART "GET")
  391.  
  392.  );cond
  393.  
  394. ;****************************************************************************
  395.  
  396.  (EAITvarz2)
  397.  (princ)
  398.  
  399. );defun
  400.  
  401. (princ)
  402.  
  403.